00400		INTEGER PL
00600		COMMON/P/P(30) /PL/PL(47) /NUMP/NUMP
00800	
01000		COMMON NWZ /INS/INST(27)/TYP/SOS,JOUT
01200		1 ,LN  /ROFF/ROFF(27),RDEV(27),P1(27)
01400		1 /VV/LIMIT,V(2000) /A/NP(27),XT(27),A(80),INVIS(27)
02400		COMMON J,L,CNT(27),BT,IREST,DF,DUR(27) 
02600		1/E/IQ(27),KL,X,ZPAR,KA,LK,NNUM,JJ,JA,ISUB,NFLG
02800		1 ,VX(70),RAMP,K,KN,M,ML,CODE
03000		1 /C/T,NWZZ,IT3,T6,NW,TDUR,U,T2,T4,BY,
03200		1 KODE,NPAR,LP,TBG,AC,NPA,IBX,IDF,PM,NM,PAR,PX2,T1,RD,
03400		1 VIJ2
03600	C  /C/=26
03700		EQUIVALENCE (VX2,VX(2)),(VX1,VX(1))
22400	
22450		NUMP=30
22500	1	READ(23)LK,VX1,VX2,ML,NPA,(P(J),J=1,NPA),(PL(J),J=1,NPA)
22550		1,I,(V(K),K=1,I)
22600	2	CALL TFM
22700	CC	PAUSE
22800		GO TO 1
22900		END